Load code

Load data

single lemma

metrics for all lemmas

Filter data

Uses in first subset

df_comp %>%
  filter(
    SUBSETTING == 'time',
    SUBSET == 'one'
    ) %>%
  select(LEMMA, USES_TOT, USES) %>%
  arrange(USES)

Case studies

Check tweets

tweets %>%
  select(tweet, date) %>%
  # slice(., sample(1:n())) #random selection
  arrange(date)

Usage intensity

uses <- get_uses(tweets)
uses_tot <- get_uses_tot(uses)
age = get_age(uses)
coef_var <- get_coef_var(uses)
mean_date <- get_mean_date(uses)
max_date <- get_max_date(uses)
uses_month <- conv_uses_month(uses)
uses_plt <- plt_uses(uses_month, lemma, mean_date, max_date)
ggplotly(uses_plt)

Degree centralization

Diachronic

plt <- df_comp %>%
  select(LEMMA, SUBSETTING, SUBSET, CENT_DEGREE) %>%
  filter(
    SUBSETTING == 'time',
    SUBSET != 'full',
    LEMMA %in% cases
  ) %>%
  mutate(SUBSET = factor(SUBSET, levels=c('one', 'two', 'three', 'four'))) %>%
  ggplot(., aes(x=SUBSET, y=CENT_DEGREE)) + # group=1
    geom_point(aes(group=LEMMA, color=LEMMA, shape=LEMMA)) +
    geom_line(aes(group=LEMMA, color=LEMMA, linetype=LEMMA)) +
    guides(group=FALSE) +
    ggtitle('Diffusion over time: changes in degree centralization') +
    scale_y_continuous('degree centrality (log)', trans='log') +
    scale_x_discrete('subset')

plt


# ggsave('out/cent_deg_diac_Anglo-Saxon.pdf', width=6, height=4)

Overall

df_comp %>%
  filter(
    LEMMA %in% cases,
    SUBSET == 'full'
    ) %>%
  select(
    LEMMA, 
    EDGES,
    CENT_DEGREE, 
    CENT_EV
    ) %>%
  arrange(desc(CENT_EV))

Comparative analyses

Degree centrality

Overall

List

df_comp %>%
  select(LEMMA, SUBSET, USES, CENT_DEGREE, CENT_EV) %>%
  filter(
    SUBSET == 'full',
    USES >= 2
    ) %>%
  arrange(
    (CENT_DEGREE)
    # desc(CENT_EV)
  )

Plot

plt <- df_comp %>%
  select(LEMMA, SUBSET, USES, CENT_DEGREE) %>%
  filter(SUBSET == 'full') %>%
  arrange((CENT_DEGREE)) %>%
  ggplot(., aes(x=CENT_DEGREE, y=reorder(LEMMA, CENT_DEGREE))) +
    geom_point() +
    scale_y_discrete('lemmas') +
    scale_x_continuous(
      'degree centralization (log)',
      trans='log'
      )

plt

# ggsave('out/cent_sync_all.pdf', width=6, height=4)

Over time

Across all lemmas

df_comp %>%
  filter(
    SUBSET %in% (c(
      'one', 
      'two',
      'three',
      'four'
      )),
    USES_TOT >= 10000
    ) %>%
  group_by(SUBSET) %>%
  summarize(CENT_AVG = mean(CENT_DEGREE)) %>%
  mutate(SUBSET = factor(SUBSET, levels=c(
    'one', 
    'two',
    'three',
    'four'
    ))) %>%
  ggplot(., aes(x=SUBSET, y=CENT_AVG, group=1)) +
    geom_line() +
    geom_point()

Biggest changes

df_comp %>%
  select(LEMMA, SUBSET, CENT_DEGREE, EDGES, USES_TOT) %>%
  filter(
    SUBSET %in% c(
      'one', 
      'four'
      ),
    USES_TOT >= 10000
    ) %>%
  dplyr::group_by(LEMMA) %>%
  dplyr::mutate(CENT_DIFF = CENT_DEGREE - lag(CENT_DEGREE)) %>%
  drop_na() %>%
  select(-SUBSET) %>%
  rename(
    CENT_LAST = CENT_DEGREE,
    EDGES_LAST = EDGES
    ) %>%
  arrange((CENT_DIFF))

Usage intensity

df_comp %>%
  filter(SUBSET == 'full') %>%
  arrange(desc(USES))

Usage intensity vs. network characteristics

Uses vs. degree centralization

Plot

plt <- df_comp %>%
  filter(
    SUBSET == 'four'
    # USES %in% (10000:2000000),
    # USES %in% (150000:500000),
    # !LEMMA %in% c('slut shaming', 'dashcam', 'shareable', 'cuckold', 'deep learning', 'hyperlocal')
    ) %>%
  select(LEMMA, CENT_DEGREE, USES, EDGES) %>%
  ggplot(., aes(x=CENT_DEGREE, y=USES)) +
    geom_text(aes(label=LEMMA), hjust=-0.1, vjust=-0.1) + 
    geom_point() +
    scale_y_continuous(
      'usage frequency (log)', 
      trans='log'
      ) +
    scale_x_continuous(
      'degree centralization',
      # trans='log'
      ) +
    ggtitle(
      # 'Usage frequency vs. degree centralization: full sample'
      'Usage frequency vs. degree centralization: zooming on case study lexemes'
      )
    # geom_smooth(method=lm)

ggplotly(plt)

# ggsave('~/Desktop/freq-vs-net.pdf', width=6, height=4)
    

Biggest discrepancies

df_comp %>%
  filter(
    SUBSETTING == 'time',
    SUBSET == 'four'
    ) %>%
  select(LEMMA, USES_TOT, SUBSET, USES, CENT_DEGREE) %>%
  mutate(DISC = USES / CENT_DEGREE) %>%
  arrange(DISC)

Correlation

df_corr_full <- df_comp %>%
  filter(
    # SUBSET != 'full'
    # EDGES >= 100
    ) %>%
  select(-c(LEMMA, SUBSET, START, END, SKIP, STAMP, NROWS))
  
cor.test(df_corr_full$USES, df_corr_full$CENT_DEGREE)

    Pearson's product-moment correlation

data:  df_corr_full$USES and df_corr_full$CENT_DEGREE
t = -2.8574, df = 549, p-value = 0.004434
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
 -0.20253487 -0.03790525
sample estimates:
       cor 
-0.1210524 

Degree centrality vs. communities

Correlation

df_comp %>%
  filter(SUBSET == 'last') %>%
  select(CENT_DEGREE, COMMUNITIES) %>%
  mutate(COMMUNITIES = as.numeric(COMMUNITIES)) %>%
  correlate()

Plot

df_comp %>%
  filter(SUBSET == 'last') %>%
  select(LEMMA, CENT_DEGREE, COMMUNITIES) %>%
  ggplot(., aes(x=CENT_DEGREE, y=as.numeric(COMMUNITIES))) +
    geom_text(aes(label=LEMMA)) +
    scale_x_continuous(trans='log')

Uses vs. users

Plot

plt <- df_comp %>%
  filter(SUBSET == 'full') %>%
  select(LEMMA, USES, USERS) %>%
  ggplot(., aes(x=USERS, y=USES)) +
    geom_text(aes(label=LEMMA)) +
    scale_x_continuous(trans='log') +
    scale_y_continuous(trans='log') +
    geom_smooth(method=lm)
ggplotly(plt)

Correlation

df_comp %>%
  filter(SUBSET == 'full') %>%
  select(USES, USERS) %>%
  correlate()

Coefficient of variation

df_comp %>%
  filter(
    SUBSET == 'full',
    USES >= 1000
    ) %>%
  select(LEMMA, USES, COEF_VAR) %>%
  arrange(desc(COEF_VAR))

Processing status

Lemma list

df_comp %>%
  select(LEMMA, SUBSET, STAMP) %>%
  filter(SUBSET == 'last') %>%
  # mutate(STAMP = as_datetime(STAMP)) %>%
  arrange(desc(STAMP))

Dataset statistics

df_comp %>%
  filter(SUBSET == 'full') %>%
  select(LEMMA, SUBSET, USES, USERS) %>%
  dplyr::summarise(
    USES_TOT = sum(USES),
    USERS_TOT = sum(USERS)
    )

COEF_VAR vs. CENT

df_comp %>%
  filter(SUBSET == 'full') %>%
  select(LEMMA, COEF_VAR, CENT_DEGREE) %>%
  ggplot(., aes(y=COEF_VAR, x=CENT_DEGREE)) +
    geom_text(aes(label=LEMMA)) +
    scale_y_continuous(trans='log')

Correlations: EDA

library(Hmisc)

df_corr <- df_comp %>%
  # filter(SUBSET == 'last') %>%
  select(-c(LEMMA, SUBSET, NET_WINDOW_DATES, SKIP, STAMP, NROWS))
  # select(-c(USERS, AGE)) %>%
  # mutate(FOCUS = USES) %>%
  # focus(FOCUS) %>%
  # ggplot(., aes(reorder(rowname, FOCUS), FOCUS)) +
    # geom_col() +
    # coord_flip()
  # rearrange() %>%
  # shave() %>%
  # rplot()
  # network_plot(min_cor=.5) %>%

  
LS0tCmF1dGhvcjogJ1F1aXJpbiBXw7xyc2NoaW5nZXInCnRpdGxlOiAiU29jaWFsIG5ldHdvcmtzIG9mIGxleGljYWwgaW5ub3ZhdGlvbiIKb3V0cHV0OiAKICBodG1sX25vdGVib29rOiAKICAgIHRvYzogeWVzCi0tLQoKIyBMb2FkIGNvZGUKCmBgYHtyIGluY2x1ZGU9RkFMU0V9CnNvdXJjZSgnc3JjL2xvYWQtZGF0YS5SJykKc291cmNlKCdzcmMvcG9zdHByb2MuUicpCnNvdXJjZSgnc3JjL3VzZXMuUicpCnNvdXJjZSgnc3JjL3VzZXJzLlInKQpzb3VyY2UoJ3NyYy9zbmEuUicpCgpsaWJyYXJ5KGNvcnJyKQpsaWJyYXJ5KHRpZHlyKQpgYGAKCgojIExvYWQgZGF0YQoKIyMgc2luZ2xlIGxlbW1hCgpgYGB7ciBpbmNsdWRlPUZBTFNFfQpjb3JwdXMgPC0gJy9Wb2x1bWVzL3FqZC90d2ludC8nCmxlbW1hIDwtICdBbmdsby1TYXhvbicKCnR3ZWV0cyA8LSBsb2FkX2RhdGEoY29ycHVzLCBsZW1tYSkKdHdlZXRzIDwtIHBvc3Rwcm9jKHR3ZWV0cykKYGBgCgojIyBtZXRyaWNzIGZvciBhbGwgbGVtbWFzCgpgYGB7ciBpbmNsdWRlPUZBTFNFfQppZiAoZXhpc3RzKCdkZl9jb21wJykgPT0gRkFMU0UpIHsKICBkZl9jb21wIDwtIHJlYWRfZGZfY29tcCgpCn0KYGBgCgoKIyBGaWx0ZXIgZGF0YQoKYGBge3IgaW5jbHVkZT1GQUxTRX0KZGZfY29tcCAlPD4lIAogIGZpbHRlcigKICAgIFNLSVAgIT0gVFJVRSwKICAgIFNVQlNFVFRJTkcgPT0gJ3RpbWUnCiAgICAjIFVTRVNfVE9UID49IDEwMDAKICAgICMgZXN0YWJsaXNoZWQgd29yZHMKICAgICMgZGlzdGluZ3Vpc2ggc3VjY2Vzc2Z1bCBhbmQgdW5zdWNjZXNzZnVsCiAgICApCmBgYAoKCiMjIFVzZXMgaW4gZmlyc3Qgc3Vic2V0CgpgYGB7cn0KZGZfY29tcCAlPiUKICBmaWx0ZXIoCiAgICBTVUJTRVRUSU5HID09ICd0aW1lJywKICAgIFNVQlNFVCA9PSAnb25lJwogICAgKSAlPiUKICBzZWxlY3QoTEVNTUEsIFVTRVNfVE9ULCBVU0VTKSAlPiUKICBhcnJhbmdlKFVTRVMpCmBgYAoKCgojIENhc2Ugc3R1ZGllcwoKYGBge3IgaW5jbHVkZT1GQUxTRX0KY2FzZXMgPC0gYygnZ2hvc3RpbmcnLCAnbGl0dWF0aW9uJywgJ2FsdC1sZWZ0JywgJ3NvbG9wcmVuZXVyJykKYGBgCgoKIyMgQ2hlY2sgdHdlZXRzCgpgYGB7cn0KdHdlZXRzICU+JQogIHNlbGVjdCh0d2VldCwgZGF0ZSkgJT4lCiAgIyBzbGljZSguLCBzYW1wbGUoMTpuKCkpKSAjcmFuZG9tIHNlbGVjdGlvbgogIGFycmFuZ2UoZGF0ZSkKYGBgCgoKIyMgVXNhZ2UgaW50ZW5zaXR5CgpgYGB7cn0KdXNlcyA8LSBnZXRfdXNlcyh0d2VldHMpCnVzZXNfdG90IDwtIGdldF91c2VzX3RvdCh1c2VzKQphZ2UgPSBnZXRfYWdlKHVzZXMpCmNvZWZfdmFyIDwtIGdldF9jb2VmX3Zhcih1c2VzKQptZWFuX2RhdGUgPC0gZ2V0X21lYW5fZGF0ZSh1c2VzKQptYXhfZGF0ZSA8LSBnZXRfbWF4X2RhdGUodXNlcykKdXNlc19tb250aCA8LSBjb252X3VzZXNfbW9udGgodXNlcykKdXNlc19wbHQgPC0gcGx0X3VzZXModXNlc19tb250aCwgbGVtbWEsIG1lYW5fZGF0ZSwgbWF4X2RhdGUpCmdncGxvdGx5KHVzZXNfcGx0KQpgYGAKCgojIyBEZWdyZWUgY2VudHJhbGl6YXRpb24KCiMjIyBEaWFjaHJvbmljCgpgYGB7cn0KcGx0IDwtIGRmX2NvbXAgJT4lCiAgc2VsZWN0KExFTU1BLCBTVUJTRVRUSU5HLCBTVUJTRVQsIENFTlRfREVHUkVFKSAlPiUKICBmaWx0ZXIoCiAgICBTVUJTRVRUSU5HID09ICd0aW1lJywKICAgIFNVQlNFVCAhPSAnZnVsbCcsCiAgICBMRU1NQSAlaW4lIGNhc2VzCiAgKSAlPiUKICBtdXRhdGUoU1VCU0VUID0gZmFjdG9yKFNVQlNFVCwgbGV2ZWxzPWMoJ29uZScsICd0d28nLCAndGhyZWUnLCAnZm91cicpKSkgJT4lCiAgZ2dwbG90KC4sIGFlcyh4PVNVQlNFVCwgeT1DRU5UX0RFR1JFRSkpICsgIyBncm91cD0xCiAgICBnZW9tX3BvaW50KGFlcyhncm91cD1MRU1NQSwgY29sb3I9TEVNTUEsIHNoYXBlPUxFTU1BKSkgKwogICAgZ2VvbV9saW5lKGFlcyhncm91cD1MRU1NQSwgY29sb3I9TEVNTUEsIGxpbmV0eXBlPUxFTU1BKSkgKwogICAgZ3VpZGVzKGdyb3VwPUZBTFNFKSArCiAgICBnZ3RpdGxlKCdEaWZmdXNpb24gb3ZlciB0aW1lOiBjaGFuZ2VzIGluIGRlZ3JlZSBjZW50cmFsaXphdGlvbicpICsKICAgIHNjYWxlX3lfY29udGludW91cygnZGVncmVlIGNlbnRyYWxpdHkgKGxvZyknLCB0cmFucz0nbG9nJykgKwogICAgc2NhbGVfeF9kaXNjcmV0ZSgnc3Vic2V0JykKCnBsdAoKIyBnZ3NhdmUoJ291dC9jZW50X2RlZ19kaWFjX0FuZ2xvLVNheG9uLnBkZicsIHdpZHRoPTYsIGhlaWdodD00KQpgYGAKCgojIyMgT3ZlcmFsbAoKYGBge3J9CmRmX2NvbXAgJT4lCiAgZmlsdGVyKAogICAgTEVNTUEgJWluJSBjYXNlcywKICAgIFNVQlNFVCA9PSAnZnVsbCcKICAgICkgJT4lCiAgc2VsZWN0KAogICAgTEVNTUEsIAogICAgRURHRVMsCiAgICBDRU5UX0RFR1JFRSwgCiAgICBDRU5UX0VWCiAgICApICU+JQogIGFycmFuZ2UoZGVzYyhDRU5UX0VWKSkKYGBgCgoKIyBDb21wYXJhdGl2ZSBhbmFseXNlcwoKCiMjIERlZ3JlZSBjZW50cmFsaXR5CgoKIyMjIE92ZXJhbGwKCiMjIyMgTGlzdAoKYGBge3J9CmRmX2NvbXAgJT4lCiAgc2VsZWN0KExFTU1BLCBTVUJTRVQsIFVTRVMsIENFTlRfREVHUkVFLCBDRU5UX0VWKSAlPiUKICBmaWx0ZXIoCiAgICBTVUJTRVQgPT0gJ2Z1bGwnLAogICAgVVNFUyA+PSAyCiAgICApICU+JQogIGFycmFuZ2UoCiAgICAoQ0VOVF9ERUdSRUUpCiAgICAjIGRlc2MoQ0VOVF9FVikKICApCmBgYAoKCiMjIyMgUGxvdAoKYGBge3J9CnBsdCA8LSBkZl9jb21wICU+JQogIHNlbGVjdChMRU1NQSwgU1VCU0VULCBVU0VTLCBDRU5UX0RFR1JFRSkgJT4lCiAgZmlsdGVyKFNVQlNFVCA9PSAnZnVsbCcpICU+JQogIGFycmFuZ2UoKENFTlRfREVHUkVFKSkgJT4lCiAgZ2dwbG90KC4sIGFlcyh4PUNFTlRfREVHUkVFLCB5PXJlb3JkZXIoTEVNTUEsIENFTlRfREVHUkVFKSkpICsKICAgIGdlb21fcG9pbnQoKSArCiAgICBzY2FsZV95X2Rpc2NyZXRlKCdsZW1tYXMnKSArCiAgICBzY2FsZV94X2NvbnRpbnVvdXMoCiAgICAgICdkZWdyZWUgY2VudHJhbGl6YXRpb24gKGxvZyknLAogICAgICB0cmFucz0nbG9nJwogICAgICApCgpwbHQKCiMgZ2dzYXZlKCdvdXQvY2VudF9zeW5jX2FsbC5wZGYnLCB3aWR0aD02LCBoZWlnaHQ9NCkKYGBgCgoKIyMjIE92ZXIgdGltZQoKIyMjIyBBY3Jvc3MgYWxsIGxlbW1hcwoKYGBge3J9CmRmX2NvbXAgJT4lCiAgZmlsdGVyKAogICAgU1VCU0VUICVpbiUgKGMoCiAgICAgICdvbmUnLCAKICAgICAgJ3R3bycsCiAgICAgICd0aHJlZScsCiAgICAgICdmb3VyJwogICAgICApKSwKICAgIFVTRVNfVE9UID49IDEwMDAwCiAgICApICU+JQogIGdyb3VwX2J5KFNVQlNFVCkgJT4lCiAgc3VtbWFyaXplKENFTlRfQVZHID0gbWVhbihDRU5UX0RFR1JFRSkpICU+JQogIG11dGF0ZShTVUJTRVQgPSBmYWN0b3IoU1VCU0VULCBsZXZlbHM9YygKICAgICdvbmUnLCAKICAgICd0d28nLAogICAgJ3RocmVlJywKICAgICdmb3VyJwogICAgKSkpICU+JQogIGdncGxvdCguLCBhZXMoeD1TVUJTRVQsIHk9Q0VOVF9BVkcsIGdyb3VwPTEpKSArCiAgICBnZW9tX2xpbmUoKSArCiAgICBnZW9tX3BvaW50KCkKYGBgCgoKIyMjIyBCaWdnZXN0IGNoYW5nZXMKCmBgYHtyfQpkZl9jb21wICU+JQogIHNlbGVjdChMRU1NQSwgU1VCU0VULCBDRU5UX0RFR1JFRSwgRURHRVMsIFVTRVNfVE9UKSAlPiUKICBmaWx0ZXIoCiAgICBTVUJTRVQgJWluJSBjKAogICAgICAnb25lJywgCiAgICAgICdmb3VyJwogICAgICApLAogICAgVVNFU19UT1QgPj0gMTAwMDAKICAgICkgJT4lCiAgZHBseXI6Omdyb3VwX2J5KExFTU1BKSAlPiUKICBkcGx5cjo6bXV0YXRlKENFTlRfRElGRiA9IENFTlRfREVHUkVFIC0gbGFnKENFTlRfREVHUkVFKSkgJT4lCiAgZHJvcF9uYSgpICU+JQogIHNlbGVjdCgtU1VCU0VUKSAlPiUKICByZW5hbWUoCiAgICBDRU5UX0xBU1QgPSBDRU5UX0RFR1JFRSwKICAgIEVER0VTX0xBU1QgPSBFREdFUwogICAgKSAlPiUKICBhcnJhbmdlKChDRU5UX0RJRkYpKQpgYGAKCgojIFVzYWdlIGludGVuc2l0eQoKYGBge3J9CmRmX2NvbXAgJT4lCiAgZmlsdGVyKFNVQlNFVCA9PSAnZnVsbCcpICU+JQogIGFycmFuZ2UoZGVzYyhVU0VTKSkKYGBgCgoKCiMgVXNhZ2UgaW50ZW5zaXR5IHZzLiBuZXR3b3JrIGNoYXJhY3RlcmlzdGljcwoKIyMgVXNlcyB2cy4gZGVncmVlIGNlbnRyYWxpemF0aW9uCgojIyMgUGxvdAoKYGBge3J9CnBsdCA8LSBkZl9jb21wICU+JQogIGZpbHRlcigKICAgIFNVQlNFVCA9PSAnZm91cicKICAgICMgVVNFUyAlaW4lICgxMDAwMDoyMDAwMDAwKSwKICAgICMgVVNFUyAlaW4lICgxNTAwMDA6NTAwMDAwKSwKICAgICMgIUxFTU1BICVpbiUgYygnc2x1dCBzaGFtaW5nJywgJ2Rhc2hjYW0nLCAnc2hhcmVhYmxlJywgJ2N1Y2tvbGQnLCAnZGVlcCBsZWFybmluZycsICdoeXBlcmxvY2FsJykKICAgICkgJT4lCiAgc2VsZWN0KExFTU1BLCBDRU5UX0RFR1JFRSwgVVNFUywgRURHRVMpICU+JQogIGdncGxvdCguLCBhZXMoeD1DRU5UX0RFR1JFRSwgeT1VU0VTKSkgKwogICAgZ2VvbV90ZXh0KGFlcyhsYWJlbD1MRU1NQSksIGhqdXN0PS0wLjEsIHZqdXN0PS0wLjEpICsgCiAgICBnZW9tX3BvaW50KCkgKwogICAgc2NhbGVfeV9jb250aW51b3VzKAogICAgICAndXNhZ2UgZnJlcXVlbmN5IChsb2cpJywgCiAgICAgIHRyYW5zPSdsb2cnCiAgICAgICkgKwogICAgc2NhbGVfeF9jb250aW51b3VzKAogICAgICAnZGVncmVlIGNlbnRyYWxpemF0aW9uJywKICAgICAgIyB0cmFucz0nbG9nJwogICAgICApICsKICAgIGdndGl0bGUoCiAgICAgICMgJ1VzYWdlIGZyZXF1ZW5jeSB2cy4gZGVncmVlIGNlbnRyYWxpemF0aW9uOiBmdWxsIHNhbXBsZScKICAgICAgJ1VzYWdlIGZyZXF1ZW5jeSB2cy4gZGVncmVlIGNlbnRyYWxpemF0aW9uOiB6b29taW5nIG9uIGNhc2Ugc3R1ZHkgbGV4ZW1lcycKICAgICAgKQogICAgIyBnZW9tX3Ntb290aChtZXRob2Q9bG0pCgpnZ3Bsb3RseShwbHQpCiMgZ2dzYXZlKCd+L0Rlc2t0b3AvZnJlcS12cy1uZXQucGRmJywgd2lkdGg9NiwgaGVpZ2h0PTQpCiAgICAKYGBgCgoKIyMjIEJpZ2dlc3QgZGlzY3JlcGFuY2llcwoKYGBge3J9CmRmX2NvbXAgJT4lCiAgZmlsdGVyKAogICAgU1VCU0VUVElORyA9PSAndGltZScsCiAgICBTVUJTRVQgPT0gJ2ZvdXInCiAgICApICU+JQogIHNlbGVjdChMRU1NQSwgVVNFU19UT1QsIFNVQlNFVCwgVVNFUywgQ0VOVF9ERUdSRUUpICU+JQogIG11dGF0ZShESVNDID0gVVNFUyAvIENFTlRfREVHUkVFKSAlPiUKICBhcnJhbmdlKERJU0MpCmBgYAoKCiMjIyBDb3JyZWxhdGlvbgoKYGBge3J9CmRmX2NvcnJfZnVsbCA8LSBkZl9jb21wICU+JQogIGZpbHRlcigKICAgICMgU1VCU0VUICE9ICdmdWxsJwogICAgIyBFREdFUyA+PSAxMDAKICAgICkgJT4lCiAgc2VsZWN0KC1jKExFTU1BLCBTVUJTRVQsIFNUQVJULCBFTkQsIFNLSVAsIFNUQU1QLCBOUk9XUykpCiAgCmNvci50ZXN0KGRmX2NvcnJfZnVsbCRVU0VTLCBkZl9jb3JyX2Z1bGwkQ0VOVF9ERUdSRUUpCmBgYAoKCiMjIERlZ3JlZSBjZW50cmFsaXR5IHZzLiBjb21tdW5pdGllcwoKIyMjIENvcnJlbGF0aW9uCgpgYGB7cn0KZGZfY29tcCAlPiUKICBmaWx0ZXIoU1VCU0VUID09ICdsYXN0JykgJT4lCiAgc2VsZWN0KENFTlRfREVHUkVFLCBDT01NVU5JVElFUykgJT4lCiAgbXV0YXRlKENPTU1VTklUSUVTID0gYXMubnVtZXJpYyhDT01NVU5JVElFUykpICU+JQogIGNvcnJlbGF0ZSgpCmBgYAoKCiMjIyBQbG90CgpgYGB7cn0KZGZfY29tcCAlPiUKICBmaWx0ZXIoU1VCU0VUID09ICdsYXN0JykgJT4lCiAgc2VsZWN0KExFTU1BLCBDRU5UX0RFR1JFRSwgQ09NTVVOSVRJRVMpICU+JQogIGdncGxvdCguLCBhZXMoeD1DRU5UX0RFR1JFRSwgeT1hcy5udW1lcmljKENPTU1VTklUSUVTKSkpICsKICAgIGdlb21fdGV4dChhZXMobGFiZWw9TEVNTUEpKSArCiAgICBzY2FsZV94X2NvbnRpbnVvdXModHJhbnM9J2xvZycpCmBgYAoKCgojIyBVc2VzIHZzLiB1c2VycwoKIyMjIFBsb3QKCmBgYHtyfQpwbHQgPC0gZGZfY29tcCAlPiUKICBmaWx0ZXIoU1VCU0VUID09ICdmdWxsJykgJT4lCiAgc2VsZWN0KExFTU1BLCBVU0VTLCBVU0VSUykgJT4lCiAgZ2dwbG90KC4sIGFlcyh4PVVTRVJTLCB5PVVTRVMpKSArCiAgICBnZW9tX3RleHQoYWVzKGxhYmVsPUxFTU1BKSkgKwogICAgc2NhbGVfeF9jb250aW51b3VzKHRyYW5zPSdsb2cnKSArCiAgICBzY2FsZV95X2NvbnRpbnVvdXModHJhbnM9J2xvZycpICsKICAgIGdlb21fc21vb3RoKG1ldGhvZD1sbSkKZ2dwbG90bHkocGx0KQpgYGAKCiMjIyBDb3JyZWxhdGlvbgoKYGBge3J9CmRmX2NvbXAgJT4lCiAgZmlsdGVyKFNVQlNFVCA9PSAnZnVsbCcpICU+JQogIHNlbGVjdChVU0VTLCBVU0VSUykgJT4lCiAgY29ycmVsYXRlKCkKYGBgCgoKIyMgQ29lZmZpY2llbnQgb2YgdmFyaWF0aW9uCgpgYGB7cn0KZGZfY29tcCAlPiUKICBmaWx0ZXIoCiAgICBTVUJTRVQgPT0gJ2Z1bGwnLAogICAgVVNFUyA+PSAxMDAwCiAgICApICU+JQogIHNlbGVjdChMRU1NQSwgVVNFUywgQ09FRl9WQVIpICU+JQogIGFycmFuZ2UoZGVzYyhDT0VGX1ZBUikpCmBgYAoKCiMjIFByb2Nlc3Npbmcgc3RhdHVzCgojIyMgTGVtbWEgbGlzdAoKYGBge3J9CmRmX2NvbXAgJT4lCiAgc2VsZWN0KExFTU1BLCBTVUJTRVQsIFNUQU1QKSAlPiUKICBmaWx0ZXIoU1VCU0VUID09ICdsYXN0JykgJT4lCiAgIyBtdXRhdGUoU1RBTVAgPSBhc19kYXRldGltZShTVEFNUCkpICU+JQogIGFycmFuZ2UoZGVzYyhTVEFNUCkpCmBgYAoKCiMjIyBEYXRhc2V0IHN0YXRpc3RpY3MKCmBgYHtyfQpkZl9jb21wICU+JQogIGZpbHRlcihTVUJTRVQgPT0gJ2Z1bGwnKSAlPiUKICBzZWxlY3QoTEVNTUEsIFNVQlNFVCwgVVNFUywgVVNFUlMpICU+JQogIGRwbHlyOjpzdW1tYXJpc2UoCiAgICBVU0VTX1RPVCA9IHN1bShVU0VTKSwKICAgIFVTRVJTX1RPVCA9IHN1bShVU0VSUykKICAgICkKYGBgCgoKIyBDT0VGX1ZBUiB2cy4gQ0VOVAoKYGBge3J9CmRmX2NvbXAgJT4lCiAgZmlsdGVyKFNVQlNFVCA9PSAnZnVsbCcpICU+JQogIHNlbGVjdChMRU1NQSwgQ09FRl9WQVIsIENFTlRfREVHUkVFKSAlPiUKICBnZ3Bsb3QoLiwgYWVzKHk9Q09FRl9WQVIsIHg9Q0VOVF9ERUdSRUUpKSArCiAgICBnZW9tX3RleHQoYWVzKGxhYmVsPUxFTU1BKSkgKwogICAgc2NhbGVfeV9jb250aW51b3VzKHRyYW5zPSdsb2cnKQpgYGAKCgojIENvcnJlbGF0aW9uczogRURBCgpgYGB7cn0KbGlicmFyeShIbWlzYykKCmRmX2NvcnIgPC0gZGZfY29tcCAlPiUKICAjIGZpbHRlcihTVUJTRVQgPT0gJ2xhc3QnKSAlPiUKICBzZWxlY3QoLWMoTEVNTUEsIFNVQlNFVCwgTkVUX1dJTkRPV19EQVRFUywgU0tJUCwgU1RBTVAsIE5ST1dTKSkKICAjIHNlbGVjdCgtYyhVU0VSUywgQUdFKSkgJT4lCiAgIyBtdXRhdGUoRk9DVVMgPSBVU0VTKSAlPiUKICAjIGZvY3VzKEZPQ1VTKSAlPiUKICAjIGdncGxvdCguLCBhZXMocmVvcmRlcihyb3duYW1lLCBGT0NVUyksIEZPQ1VTKSkgKwogICAgIyBnZW9tX2NvbCgpICsKICAgICMgY29vcmRfZmxpcCgpCiAgIyByZWFycmFuZ2UoKSAlPiUKICAjIHNoYXZlKCkgJT4lCiAgIyBycGxvdCgpCiAgIyBuZXR3b3JrX3Bsb3QobWluX2Nvcj0uNSkgJT4lCgogIApgYGAKCgogIA==